Make sure to preserve point across locked narrowing

* src/editfns.c (Fnarrow_to_region): Save the position of point
when locking the restriction, since this function can move point.

diff --git a/src/editfns.c b/src/editfns.c
index d15d4dc68b9dbc2107045e7fd5a8ceb5aff32dd4..79af27d24da2e5d3978c9194fbbd3eac0d16ce54 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2721,6 +2721,7 @@ the current body form.  */)
       if (BEGV != s || ZV != e)
        current_buffer->clip_changed = 1;
 
+      record_unwind_protect (restore_point_unwind, Fpoint_marker ());
       record_unwind_protect (unwind_locked_begv, Fpoint_min ());
       record_unwind_protect (unwind_locked_zv, Fpoint_max ());